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F 11 
DETACHED 16-Sep-1984 01:59:01 AX-11 Bliss- 
Mb 008 19-08-1382 93:29:82 LOGIN. SRCIDE 
s 1 0001 MODULE detached (IDENT = ‘v04-000', 
: § ¢ ADDRESSING_MODE(EXTERNAL = GENERAL)) = 
: ? 2 BEGIN 
ci | 005 1! 
3 § 35 : | Pesoenergacenesaeaseesnensorsneseseresononeeseoeeoeratenenssoeneseoeenetete 
° :* x 
3 8 008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY % 
3 G i484 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
$ 19 B8i9 : » ALL RIGHTS RESERVED. * 
° H a 
3 \¢ Batg 1 !@ THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; o 153.1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE »* 
; 14 0014 1 !* INCLUSI HE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER a 
: 15 0015 1 !* COPIE OF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 16 Bog 1 !'® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 ? SEA ; i: TRANSFERRED. * 
Py ; oa 
H 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ® 
; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $3 itd : re CORPORATION. : 
; 38 06 : 1 in DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: $e Be ¢ ! i. SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. - 
: 26 0026 1 i e 
3 i it 44 ! Vee RARER AAA RARAAAARAEAAAAEAEEAEA EEE E AAAS 
; 9 0029 1 !++ 
3 8 ? ’ FACILITY: Login 
; : 003¢ ABSTRACT: 
: 7 Op ee } This module handles all processing specific to detached jobs. 
: 36 0036 t ENVIRONMENT : 
; 4 6038 1/ VAX/VMS operating system. 
eB 0039 1! 
:; 40 0040 1 ! AUTHOR: Tim Halvorsen, March 1981 
; 41 0041 1! 
3 *g 944 : : Modified by: 
Pi ae 0044 1 i VO3-013 MHBO147 Mark Bramhall 7-May-1984 
; a2 Boe? : Guard again no global buffers when opening NETUAF. 
3; «667 G04? 1! vO3-012 MHB0125 Mark Bramhall 10-Apr-1984 
: «448 rt 1! Set node name, etc. via SET_NODE_NAME. 
; «649 Boe 1! Disallow network access to accounts with secondary passwords. 
3 20 9 ! Fix up network output file name scanning. 
; 5 26 1 v03-011 MHB0107 Mark Bramhall 21-Mar-1984 
3 54 37 ! } Use LNM services for logical names. 
: 55 55 13 v03-010 PCG0001 Peter George 31-Jan-1984 15:10 
3 2$ Opes 7! Add secondary peseuord to network proces ing. 
; 57 1! Correct bug in interpreting batch item List. 
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DETAGHED ifcbeoc19Rs 01:59:01 YAKctt aL iga=2 44 


3 1! : 
3 38 03 1! v03-009 he pends Andrew Coldstetn, 29-Dec-1983 9:59 | ° 
; 60 60 7 ! in lement ite type in ia; fix godine of field references ‘ 
3 6] 061 1! roxy file record. Change UAF working set fields ‘ 
: ° p06 : } to ongwords. é 
: 64 064 1 i V03-008 ACG0376 Andrew C. Goldstein 22-Nov-1983 17:16 : 
; 8 Bak nt eer eR cleanup with VALIDATE UAFREC; fix error handling ‘ 
; 96 bes : mn GET_PROXY. Put batch input file name in PPDST_FILENAME. ; 
: 68 068 1 V03-007 GAS0183 Gerry Smith 16-Sep-1983 : 
: 9 4 1! For network logins, rearrange She cp code so that the ‘ 
; 0 » Be node name gets set early on, s helps in both ‘ 
$ f} 4 ; accounting and breakin evasion. ‘ 
Be O78 1 i V03-006 GASO164 Ger 30-Jul-1983 : 
; 24 0074 1! Change the method of ¥ leabtin lo {cal oy as translation ‘ 
3 e BRt2 } in RAS calls to use the new ACMODES f ‘ 
: #77 0077 1 v03-005 MLJ0115 Martin L. Jack 3m oy 1983 10:29 ‘ 
: 28 0078 1} Update for new log file error handling : 
: 80 0080 1 VO3-004 GASO137 Gerry Smith 26-May-1983 ; 
; a 42 \ Do not signal a $SNDJBC error when terminating a batch job. : 
: 8 0088 1/ v03-003 GAS0123 Gerry Smith 19-Apr-1983 : 
; 8684 0084 1! change interface to use SNDJBC for batch jobs. Also, ; 
. a 0085 1! if proxy access is requested and the NETUAF cannot be : 
3 $6 B06 ! accessed, signal with a fatal error. : 
: 88 0088 1 v03-002 GAS0097 Gerry Smith 4=Jan-1983 ; 
; 4 i434 : } Fix the case of proxy rt for wildcard prions : 
; 91 0091 1! v03-001 GAS0057 Gerry Smith 17-Mar-1982 : 
SS. 0092 1! Fix FABS to disable ai but s ‘ 
3 ez a4 : Crodae name translation ele spen/erestes. : 
; 95 $098 7! V03-010 MLJ34580 Martin L. Jack, 11-Feb-1982 0:55 : 
; 0096 1! Make use of extensions to DJT record to set name and /NOTIFY ; 
; WT 0097 1! status for log file print job. Correct queue name translation ; 
; 98 81! so that explicit queue name is not translated and implicit ; 
; 100 +44 ! : SYSSPRINT uses standard queue-name translation modiroutine. : 
; 101 191 1 v03-009 GAS0032 erry Smith 07-Jan-1982 ; 
3; 1 § 1 ¢ 1! roxy login, if a UAF record is found, return : 
; HS 194 : PAL E to in icate lookup failure. : 
; 105 105 1! v03-008 GAS0031 Gerry Smith 04-Jan-1982 : 
: 196 198 1} Remove NETUAF structure f2' ioltions from this module. : 
$ Hie4 ine ' SNAFDEF now resides in LIB.REQ. : 
; 109 199 1! v03-007 SPF00SO Steve Forgey 01-Jan-1982 ; 
: 119 119 ' : Store remote node info in Pl space for network jobs. : 
; 118 Ne 1 i V03-006 GAS0029 y Smith 31-Dec-1981 ; 
3 137 aE : Add proxy login -° "hetuerk jobs. : 
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v03-005 


v004 


v003 
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v03-001 


Include files 
LIBRARY 
REQUIRE 


REQUIRE 
REQUIRE 


*SYSSLIBRARY:LIB'; 
*SHRLIBS:UTILDEF'; 


*LIBS:PPDDEF'; : 
*LIBS:LGIDEF'; ; 


H 11 

=Sep-1984 01:59:01 X-11 
12-8681 380 04:29:81 LOGIN. 
WRJOOS2 Herb Jacobs 12-Nov-1981 


as val! batch queue WSEXTENT if passed, validate username 
s val d for batch job, and allow handler to stop a batch 
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MH0004 Tim Halvorsen 26-0ct-1981 
bet ORIGUIC and OUTFNM ag I LGI area rather than from PPD. 
Add extre acmode a erguaent calls to exec si pete 
Make use of global SYS ERROR descri tor, rather than 
re-translating the peli name again here. 


GWF0073 ory fe 27-Jul-1981 
Change job name te scic ‘Ketes. Increase maximum length of 
message that can be received from the job controller 


TMHO002 Tim Halvorsen 16-Jul-1981 
Reference SHRLIBS for shared. require files. 


GWFO00S1 Gary W. Fowler 29-May-1981 
Add file size in message sent "yhen log file 13 queued for 
printing. 


! VAX/VMS system definitions 
! Common BLISS definitions 


Process permanent data region 
LOGINOUT private permanent storage 
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' 
Table of contents 


FORWARD ROUTINE 
Peeabeteh lobe 
stop_batch_ jo 

sratnate Batch: 
nit_network: 
get_proxy; 


t 
External routines 


EXTERNAL ROUTINE 


map_imgact: 
create “logical, 
set_sySprv: 
clear_sysprv: 
set_uic, 
set_node_name: 
exit_process: 
LibSFid_to_name; 


1 Define Literals 


: Define message codes 


antats he 
a 
$"useraut 

tgis- netuafacc: 


i 
: External storage 


EXTERNAL 


output_ nent 
uaf_retord: 
sysSinput: 

sys$output: 


NOVALUE, 
NOVALUE, 
NOVALUE, 


NOVALUE, 
NOVALUE, 


NOVALUE, 
NOVALUE, 


BITVECTOR, 


REF BBLOCK, 


VECTOR, 
VECTOR, 


ik 


Sep-1984 12:41:03 ELOGIN. SRCSDETACHE 


Initialize batch job step 
ob stream 
Stop a batc 

Initialize network job 


Get proxy username 


Close primary output wre 
Read/validate UAF reco 

Read UAF record without validiation 
Write logout message 

Map image activator code segment 
Create rs HIM name with tN services 
Turn on SYS 

Turn off SYSPRV 

Set process UIC 

Set remote ee info in P1 space 
Exit the proc 

Translate file. Ip to file name 


' PCB status {lags 
. = cvpe, code for JIB 


i Out 

} Ridress "ot UAF S1SSiNeu 
' Translation of SYS 
! Translation of SYS$OU 


ao 


11 

TACHED b- -1984 01:59: AX-11 Bligs-32 V4.0-742 Pa 
ya 000 =30071 382 94:29:83 LOGIN. SRC SETACMED BSoe1 ” (23 
H sytgerror: VECTOR, ! Translation of SYSSERROR 
: ctl$ag_clidata; ! Process permanent data storage 
; 1 BIND 
3 : 5 } ppd = cti$ag_clidata: BBLOCK; ! Address of PPD structure 
: 211 10 1 


2 Page 6 


co 


11 
vo4-600 1er$ep-198e 12:41:03 EROGIN. SRCSDETACME 


GLOBAL ROUTINE init batch: NOVALUE = 


Perform batch initialization by requesting the job parameters 
from the job controller. 


— st 
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i Inputs: 


i Outputs: 


' 
' 
' 
' 
' 
1 None 
' 
{ 
uaf_record = Address of UAF record for user 
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He 
33 
34 
35 LOCAL 
36 username : VECTOR(2) ! Descriptor for username 
37 INITIALC(REP 2 OF (0)), 
38 logdesc: VECTOR f J } Logical name descriptor 
39 Logname: VECTOR sGyTEI, ! character logical name 
40 ped : REF VECTORC,WORDJ, 
41 39 ength, 
v4! 40 buffer : VECTORC500) ! SNDJBC message buffer 
45 0641 flags : REF SBBLOCK [INITIAL (0); ! Flags from job controller 
45 ek ! 
re Rees : Check to see if at early termination of batch job. 
4 064 iF .ppd Cppd$w_outifi) NEQ 0 ! If not first job step, 
4 066? AND NOT ppd Cppgst Lststatys) ! and job step Hit ag 
064 moet ((.ppd Cppdsl_iststatus] AND 6) NEQ 0) ! and its an error or fatal, 
068 terminate_batch(0); ! Stop the batch job 


] 
: Request detached job step initialization parameters from job controller 


BEGIN 
LOCAL 


ho 
osb : VE 
itmlst : 


SITMLST_INIT( 


Soe 
II 


OWONAUE WN OO 


SSS 


j, 
T_DECLCITEMS = 1); 


h_output, 
OR( buffer), 
b 

t 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
OWN 
obname: VECTOR (43,BYTE), ! Must be static to be passed back 
ogfile: VECTOR Cnam$c_maxrss,BYTE); ! to caller as output filespec 
atch service, 


. 
e 
. 
° 
. 
° 
. 
@ 
o 
e 
. 
° 
. 
. 
° 
o 
° 
° 
. 
e 
o 
2 
° 
° 
. 
. 
. 
e 
2 
° 
. 
2 
. 
e 
. 
e 
+ 
e 
° 
e 
. 
e 
. 
e 
. 
o 
7 
o 
. 
o 
e 
. 
e 
. 
e 
~ 
o 
. 
go 
. 
° 
. 
° 
° 
eo 
2 
o 
- 
° 
. 
° 
© 
a 
. 
a 
° 
. 
e 
. 
° 
. 
e 
. 
° 
. 
° 
* 
° 
. 
e 
. 
e 
. 
e 
. 
e 
. 
e 
. 
e 
‘ 
e 
‘ 
° 
‘ 
e 
. 
e 
. 
e 
‘ 
. 


Be Se Se Se Se Ge Se Se Se Se Ge Se Se Ge Fe Se Se Fe Ge Se Se Fe Se FFF Se Ge FF Ss Se Se Se Ge Fe SEOs Se FHSS SH Se Se Se Se Se Se Se Se Se Sseese tee Seese 


NOUS VM DWONAULWN—O OC 


ROPIPINIPONINININININPINIPINPININYD 
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Pd = | 


D D 18-5 Sep-1 AX-11 Bliss-32 V4 
vor“ 20771 8t 93i27:8s | HANGIN Bae Sse Re che 
if status 
HEN status = -iosb(0); 
IF NOT .status 
in N SIGNAL “STOP. status); 
' 
1 
i] 


(ONIN NNN SIOO 


Now to 9 gd a F he data items in BUFFER, setting up the input and 
output Tiles a ted, as well as working set parameters and cpu 
Pee linlan et tiret lee Sten. 


; ig 6 ; 
3 aro 6 : 
: 58 a0 
; rf 5 : Find the flags longword and the username. : 
3 ae 6 § ese = buffer ; 
; 280 6 8 HILE true DO : 
: a 6 ie : 
; ¢ 0 IF .ptrli) EQL 0 : 
; 681 THEN EXIT. OOP: : 
3 6 g IF .ptrli) EQL dji$k_flags : 
: 5 THEN : 
; 286 6 4 BEG 3 
; 287 5 4 flag pee $2 > 
; 288 0686 4 IF . flags dji$v_terminate) : 
; 289 06 4 THEN stop_batch_job(. te tite buffer, 0); : 
; 290 0688 4 IF_.flags€dji Y ~delet ; 
; 291 0689 4 THEN 4 {nbut ab FabSv ‘atl true; : 
; 29 poay 4 IF ags dj i$v_restarting : 
:; 29 91 4 THEN pp boas v.restart) = true; . 
3 294 Be36 & IF .username NEQ 9 : 
; 295 693 4 R Ppdtepdsy. outifi] NEQ 0 ‘ 
: 96 0694 4 ‘ 
: $38 0696 3 ELSE TF .ptr£1) EOL djisk 
: ptr username : 
:; 299 bear 3 THEN ‘ 
3; 300 0698 4 BEGIN : 
ae.) 0699 4 usernenel 1) = 5 pertes: : 
: 4 700 4 IF .f : 
; 30 701 4 THEN Ex TLOOP; . 
; 304 7 ¢ END; > 
: 305 070 ee = ptr(2) + .ptr(0); . 
: 306 07 : 
. ee : 
3 44 A i : If this is the first job step, then do first_time_thru stuff. : 
: 311 709 IF .ppd Cppd$w_outifi} EQ. 0 ! If this the first job step, ° 
: 3g 710 3 THEN —— ; 
; 31 711 EGIN ‘ 
3; «314 ne ob_type = jib$c_batch; : 
; 315 71 ! eeeusername = = uptts. username; ! Setup descriptor of user name ; 
3 16 714 username 1 Setup descriptor of user name ; 
; 715 et vuafrec (username): ! Get user's UAF record : 
; 8 ay F [uaf_record EQL 0 : 
; 320 71 SIGNAL_STOP(Lgi$_userauth); ! signal fatal error : 
3 1 71 END; : 
5 § 7 ; 
3 7 
3 4 7 ‘ 
3 $2 7 j 
; 6 7 : 


wn —O0oe 


Rorofporors 


err or 


ver-dob sEbeecRs Q78) MEHL SaseHz agitate duet 


len desc 9 = ei ! Set up the logical name descriptor 
logdesc = en 

lLogname(0] = ' 

output fab fab$b_ fns] = 0; ! Initialize the file name 


CASE .ptr01}] FROM 0 TO dji$k_wsquota OF 
J : EXITLOOP; 


Cdj isk. wsdefault) : 
THE pene outifi] EQL 0 ! If first job step, set wsdefault 


EGI 
If si tagels Sy use gitdefeult 
HEN uat_record(Cuaf$l_dfwscnt s age te 


else uaf_record(uaf$l_dfwscnt UC. (ptr[2)), 
-uaf _recordCuaf$l _dfwsent)); 
END; 
sa a a : 
d(ppd$w_outifi] EQ. 0 ! If first job step, set wsextent 


ENREG 

od na cageca Sy us use gyeoutents 
THEN uvat_record L_wsextent) 
ELSE uaf_record wots “wsextent) 


Cdji$k_wsquota] : 
thei? ae ppdSw_ outifi] EQL 0 ! If first job step, set wsquota 


wihGcctperc23), 
cuaf_ recordCuaf$l _wsextent)); 
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i ni sagees i8y use gi*quotad 
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7 
7 HEN uat_recordCuaf$l_wsquota] = Covet 
7 tse uaf_recordCuaf$l_wsquota) = MINUC. oy £2), 
7 .uaf _recordluaf$l _wsquota)); 
re END; 
76 Cd a _Cpu_maximum] : 
68 j a outifi] EQL 0 ! If first job step, set CPU time Limit 
ak Thel 
77 iF <i sCdji$v_use cpu_max imum] 
ng HEN vel ow te uaf$l st cputin = .(ptr Ce) 
774 eve uaf-record(uaf$l-cputim) = MINU(. (ptr[2))- ! So that °. > all others 
775 .uaf cerita _cputim)-1) + 1; 
BOR ne 
30 778 Cdji$k_job_name) : 
1 77 BEGIN : Setup outpu log file name from job name 
oe 780 hs th = ,ptr(0); : get L ength ob name 
781 CHSMOVE(. Length, 


<o 


N11 
vo4~600 ecSep-19b6 2:41:05 ELOGIN. SRCSbET 


Pr 


§ fobnané) 

4 CHSMOVE ( pti ds"anal & lebaied ial + , length 

5 output_ fab Pap $l ! Set HT to <jobname>.L0G 
fab$b~ dnsJ = ‘tength’ ; 


output_fab 
END; 


(dj 1$k tog. specification] : 
output. fep febsb. fns] = .pt 


output eT ves gtrt tapsle fnaj = “ipertbas 


pgie log file name 
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SQQLQQVw aN 
SESESSS 
USEWn—OO° 


OCAL 
c : VECTOR(2); 
desc Oy": pte tg ); 
desc = ptrl 
Ascip *BATCHSRESTART’, 
pst$c_ user); 


SSGERE 


create_logical ( 


; 4& 

3 4 

FH} 4 

: : 

3 4 

s & 

; d 

: pens 

3 4 ogf le); 

; 0 ; 

3 9 CdjiSk file_identification] : ! Batch input file 

: 401 0799 4 BEGIN 

; 40 580 4 LOCAL 

; 40 0801 4 name_desc : VECTOR £Sq. 

; $88 Bang ? ig : eee 

3 rts Bape 2 cHSMOVE Bogie vitia: 

: 408 9808 4 neu ut 4 a _dvil); 

3; 409 0807 4 input_fab Cfab$v_nam] = kame. ! Mark to open input by NAM block 
; 410 0808 4 : Set input file name for CLI 
3 6411 0809 4 name_desc 1} = = ppd$s_file 

3 | pai? 4 name sce * este *fease }+1 

; 41 0811 4 dvi_desc cT Aput nantnanbe_ dvi], 0; ,BYTE); 
> 414 oBi¢ 4 dvi_de = input_nam(nam$t_dvil+1; 

3; 415 13 4 IF Tibst d_to_name tavi desc, input_ hamCnam$u_ fid], 

3 218 0814 4 e_desc, pene. Length) 

: rt 4 OB 4 ren VECTOR CppdCppdst. "fTlenssel. OF ,BYTE] = .name_length; 
: 419 1 3 

3 ? 0819 i Casts. pereneter_t TO dji$k_parameter_8) : 

3; 6 0 4 LOCAL 

; 4 : os 1 4 g5c: VECT 0; 

: 426 8 § 4 desc ie pt f 

: 425 83 4 descli a he ; 

3; 4 $ 4 4 Logname [ + .ptrli] - djiSk aporenctor 1; 

3 ¢ o8 5 ? create et Re th ‘ Create Pn logical name 
3: 6 5 8 $ 4 ps l$c_user): 

3; 4 3 END; 

i O32 0 [dj i$k_restart) 

: restart) : 

3 438 & BEGIN 

ee & L 

3; 4 4 

3; 4 4 

s 6 & 

; 4 4 

3s 6 4 

; 4 0 4 
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DETACHED 1bese =1984 01:59:01 AX-11 Bliss-32 V4.0-742 P 10 
Mba 000 etiam ra eae) PS OP LPT far het a we 
> 441 0839 ND; 
3 46 S20 as 
 & O86) INRANGE), : true; 
: 464 4g OUTRANGE] : true; 
: tee Sede al tr(2] + .ptrl0) 
° = r e r P 
4a? Spee Bxo; PS . 
: 648 0846 
: 449 084 IF .flagsCdji$v_log_nutlI 
: 450 0848 © THEN 
: 451 0849 BEGIN 
: 128 bees output _fab Cfab$b_fns] = 4; 
: 45 851 output_fab Cfab$l-fna) = UPLIT BYTE('_NL:'); 
> 4654 O85¢ END; 
: 455 085 
: 656 0854 
: 457 0855 1 END; 
-TITLE DETACHED 
» IDENT \V04-000\ 
.PSECT $PLIT$,NOWRT,NOEXE,2 
47 4F 4C 26 00000 P.AAA: .ASCII \.LOG\ : 
00 00 54 52 41 54 53 45 52 26 48 43 54 41 43 90004 P.AAC: .ASCII \BATCHSRESTART\<0><0><0> : 
010€000D tee P.AAB: .LONG 17694733 : 
00000000" 00018 ADDRESS P. AAC : 
3A 4C GE SF OOO1C P.AAD: <ASCII \_NL:\ : 
PSECT $OWNS,NOEXE,2 
00000 JOBNAME:.BLKB 43 
00028 ‘BLKB 1 
0002C LOGFILE:.BLKB 255 
.EXTRN CLOSE_OUTPUT, VALIDATE UAFREC 
-EXTRN GET_UAFREC, LOGOUT_MESSAGE | 
SEXTRN MAPTIMGACT, CREATE muta ti 
SEXTRN SETTSYSPRV, CLEAR_SYSPRV 
SEXTRN SET-UIC, SET_NODE 
“EXTRN EXIT_PROCESS Crest iD TO_NAME 
-EXTRN LGI$"JBCMIXU rub LGI$_USERAUTH 
“EXTRN LGIS~NETUAFACC UBis- * 
SEXTRN JOB TYPE, INPUT FAB 
“EXTRN INPOT_NAM, OUTPOT FAB 
“EXTRN OUTPUT_NAM, UAF_RECORD 
-EXTRN SYSSINPUT, SYSSOUTPUT 
“EXTRN SYSSERROR, CTLSAG_CLIDATA 
“EXTRN SYSSSNDJBCW 
.PSECT SCODE$,NOWRT,2 
OFFC 00000 ENTRY IN T apATcH. Save R2,R3,R4,R5,R6,R7,RB,R9,~ ; 0611 
5B 000000006 00 9 00002 MOVAB OAR “RECORD, R11 : 
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DETACHED 1b-5e -1984 01:59: AX-11 Bliss-32 V4.0-742 Page 11 
64-500 1 =300 71382 03:29:81 LOGIN. SRCJDETACHED.B32;1 ° (3) 
A G 9E 00009 MOVAB OUTPUT_FAB+52, R10 ; 
39 doo099006 88 3E 19 MOVAR PE th aS 
E F 0 CE 9E 0001 VAB -2048(5P), SP : 
F AD € 0001C CLRQ USERNAME + 0627 
57 D4 O1F CLRL «FLAG : 
ye sue] dene pe hae 
1) F4 AO f 90 BLBS PPD+24, 1$ + 0647 
06 F4 A 029 BITB PPD+24. #6 + 0648 
97 13 0002D BEQL ~=s«*d1$ : 
E Dd 0002F CLRL =(SP) + 0650 
0000v CF O01 FB 00 1 CALLS #1, TERMINATE _BATCH : 
30 08 AE 4 6 1$: MOVAB TALS SSITMBLKPTR + 0664 
0 000807D0 8F 00 0003A MOVL #722896, ($$ITMBLKPTR)+ : 
80 20 AE 9E 00041 MOVAB BUFFER, ($$ITMBLKPTR)+ : 
: 7¢ 90043 CLRQ ($$ITMBLKPTR)+ : 
E 7C 00047 LRQ = =(SP) + 0667 
20 AE 9F 00049 PUSHAB 10SB : 
14 AE OF b004¢ PUSHAB ITMLST : 
7E 07 7D 0004F ova 7, =(SP) : 
7E D4 00052 CLRL = = (§P) : 
000000006 00 07 FB 00054 CALLS #7, SYSS$SNDJBCW : 
07 50 £9 00058 LBC STATUS, 2 + 0668 
50 18 AE DO 0005 MOVL 10SB, STATUS + 0669 
09 50 E8 0006 BLBS STATUS, 3 : 0670 
50 DD 00065 2$ PUSHL STATUS + 0671 
000000006 00 01 FB 00067 CALLS #1, LIB$STOP : 
56 20 AE 9E OO6E 3$ MOVAB BUFFER, PT : 0677 
50 02 A6 3¢ 0072 4$ MOVZWL 2(PTR). RO + 0680 
4D 1 90076 11$ : 
03 30 B1 0007 CMPW sé, #3 + 0682 
0 12 00078 BNEQ 8$ ; 
57 04 Ab 9E 00070 MOVAB 4(R6), FLAGS + 0685 
0c 67 06 £1 00081 BBC #6, (FLAGS), 5$ + 0686 
7E D4 90083 CLRL = = (§P) : 0687 
24 AE 9F 00087 PUSHAB BUFFER : 
57 oD iit PUSHL ay* é 
0000V CF 03 FB 0008C CALLS #3, STOP_BATCH_JOB ; 
08 67 £9 0091 5$: BLBC CFCAGS) « 6 : 0688 
000000006 00 80 8F 88 00094 BISB2 #128, INPUT_FAB+5 : 0689 
04 67 05 a 009C 68: BBC #5, (FLAGS)> 7$ : 0690 
DE Ag 10 00A0 BISB2 #16, PPD+2 > 0691 
FC AD DS OO0A4 7$ TSTL SERNAME +4 : 0692 
I¢ 1 6 A7 BNEQ 1 : 
69 B a9 TSTW  PPD+36 : 0693 
O¢ 11 OOOAB BRB 9$ F 
10 0 81 AD 8$ CMPW RO #16 + 0696 
09 12 0008 BNEQ 10$ ; 
FC OAD 04 As 9 B MOVAB 4(R6), USERNAME+4 : 0699 
57 D B TSTL FLAGS : 0700 
OA B9 3 BNEQ 118 F 
50 66 3C 000BB 10$ MOVZWL (PTR), RO : 0703 
56 04 A046 : B MOVAB. 4(RO)CPTRI, PTR ; 
AD 1 C BRB 4$ ; 0678 
: C5 118 TSTW PPD+36 : 0709 
$ ¢ BNEQ igs ; 
000000006 00 D ¢9 MOVL #2, JOB_TYPE + 0712 
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NAME _LENGTH, PPD+104 
36$ 


<o 


OOoOoocoooooocooo COCO 
OOOMOXOOONNNINNN NNNN 


——— = QOOWOOOWoo cocoO. 


MMRMNMW— 
MEW 


oooooo 
02090000 “JCD 


Pee Se Se Se Se Ge Ge Se Se Se Ge Se Fe Ge Se Se Se Fe Ge Se Ge Se Se Se Ge Ge Se Se Fe Fe Fe Se Fe Fe Fe Fe Fe Ge Fe Se Ge Se Se Se Se Ge Fe Ge Se Fe Fe Se Be Se Be Be 
Be Se Be Se Se Be Be Se Be Be Se Se Se Se Be Se Be SH Fe Be Se Se Se Se Se Se Se SH Fe Se Se Ge SH Se Se SHS Se Oe Se Se Se Se eeSe Se Fee Se Se Fe Geese Se esesese 


mle 


; Routine Size: 


09 


633 bytes, 


000000006 9 


o 


ran 
>Pr~n 
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Routine Base: 


al? 


FE9 
H 
4 
0000' CF ge 


SCODES + 0000 


6 
6 


00972 
4 0027 


i: ie: 
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‘81 AX=11 Bligs-32 V 


LOGIN. SRCSDETACHE 
#3, CREATE LOGICAL 
4(RO)EPTRI, PTR 
#2, (FLAGS), 38$ 


#4. OUTPUT FAB+52 
P KADY OUTPUT _FAB+44 


—_ nm 
u~ Oo 
— 


$305 742 
-832;1 


<9 


DETACHED 1$-Seo-1964 01:59:01 yARot! BLing-42_ v4 


3 t28 § } GLOBAL ROUTINE terminate_batch(signal_args : REF SBBLOCK): NOVALUE = 
: $6) gs yi 

: 66 60 1! Request a job controller termination message, then stop batch job. 
; 464 11: 

: rhe 6 i m es la ts or 0. 

3 nal arguments o 

$ rh A 1! ’ ° 

5 188 65 : : Outputs: 

; rth se : Job termination, no return, exit via exit process 

: 47 869 1 

; 47 4 0 BEGIN 

: 476 0871 

3; 475 oers LOCAL 

: 476 087 status, ' Status return from SNDJBC 
: 477 0874 input_buffer: SBBLOCK(50) ! SNDJBC input buffer 

: 478 0875 buf fer: sabe. $BBLOCKC5005, SND JBC output butter 

; : ' Cursor for input buffer 

3 res + 144 ptr ee rote ORC -WORDJ, peiater te buffer contents 
3 os ' Final status from 

$ rt + t44 itmlst : $ITMLST. DECLC(ITEMS = 2); ' SNDJBC item List 

> 484 0881 

; 485 bese ! 

: 486 088 ! Initialize SNDJBC input buffer. 

; 487 0884 ! 

: 488 Sas? p = input_buffer; 

; 489 886 

3 ris st t4 peal By, ~{ten_ code = dj iSk_ input_flags; ! Inhibit return of a file 
$w s 

3; 49 0889 = .p * djiSs_item_header; 

; 49 0890 pz 85188, no_Tile;~ 

> 494 0891 p= 

3; 495 89 

3 rts 3 ah pee NEQA 0 ! If signal arguments present 
: 498 0895 BEGIN 

3; 499 pene LOCAL 

3 304 344 i: REF SBBLOCK; ! Pointer to item header 

: 99 

3 208 0899 sai item_ code = = giisk_ condition_vector; 

: 308 1 zitemes si ze 

3 Pp header 

: 5] é > = sionals s_iten. 4,0, eigen; ! Primary condition 

: $08 5 iG _signal. args(0,0,8,0) GEQu 3 

: 509 THEN 

; 19 ¢ ete item_size] = 8; 

; 21¢ $09 2 “Pp _= 5Sional. orael12,6° 32, 0]; ! STS, if present 

3 pe 

: 14 11 ND: 

3 $14 12 i IF .Signal_ args(0,0,8,0) GEQU 4 
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H 12 
1erSep-1986 12:41:05 ELOGIN. SRCSBETACH 


OGM, item “size = 12; 
-p = sional. args(16,0,32,0]; ! STV, if present 


.p + 
En: 
END; 
-p = 0; ! Zero terminate List 


' 
Request parameters from job controller. 


SITMLST amas tis = ying 


TMCOD = sjc$ ch_input, 
BUFSIZ = LLOCATION inp ut _buffer), 
BUFADR = inpyt bu uffer), 
(ITMCOD = sjc$_Batch outpu 


eur tae = LLOCATION (b on 
status = Sone SOLU ne = sjc $ _batch_service, 
ITMLST = ftmlst. 
1086 = iosb); 
IF .status 
THEN status, = .iosb(0); 


IF NOT . 
THEN stop. batch -jJob(UPLIT(O), 0, .signal_args); 


' 
i Look for the flags et: 7 Once that is found, we can call the routine 


to actually stop this jo 
ptr = buff 
WILE .(ptr£O3) NEQ 0 DO 

IF .ptr£€1) EQL dji$k_fla 


THEN yn gtch. ob ( prrtdi. buffer, .signal_args); 
et = ptrf sptrl 6 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
00000000 00020 P.AAE: .LONG 0 


-PSECT SCODE$,NOWRT,2 
00 ENTRY eee BATCH, Save R2,R3 
é FDB4 99 MOVAB “SP 
ct " 9 MOVAB INPUT _B \erer 
0 80010004 ar dO 00 MOVL #2147418) 8. (Pye 
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; Routine Size: 177 bytes, Routine Base: SCODE$ + 0279 


0 
. -32 v4.0-742 Page 17 \ 
16-Se0-1984 AX-11 Bliss-32 V4. é (4) 
DETACHED ib3e Sep-1986 12:21:05 — ELOGIN. SRCIDETACHED 85201 
ee r GRO ABM lea hace, as 88): 
ae) oe fe 
| BF bOotE 92214673525 572, (P)+ * 0903 ; 
woceoo 6 ORS Rant MOVE 4(R3)., : O90 
i oe é3 3 CAPE (RS), rio a Owe 
8) 900s nove rs (1) : 0309 
! A MOVL  12(R3), (P)+ * 0912 : 
0 oc 1$: CMP (R3), WG : ; 
4 iF BLSSU 28 : 0915 ; 
8 A MOVW #i2,_(1) : 09 3 
80 10 AS D0 MOVL —-18(R3), (P)# : 09 
a ee wee 
i enaet i SE 0 rh MOVAB INPUT BUFFER. CS ($81 TMBLKPTR) + ; 
0 D4 CLAL (SSITBBLKPIRS+ ; 
gg omoongs BRO HERES NLS aIET I. emaerm ; : 
0 24 tb 3 098 CLRQ (SSITMELKPTR)+ * 9935 
4 AE OF 0006 PUSHAB 108 ; 
be OA 9F 0006 mie” BSS sp) 
7€ OF aD Rotts P) : F 
De Raves CALL a, _SYSS§NOUBCW : 
000000006 99 j Fe binky GAs . fone) |: 
of D0 00077 MOVL fosg’ * sTATUS : 0988 : 
: C85 BB door BLBS STATUS, 4$ : 0939 : 
” 33 bb OOOrE 38: PUSML RS 
He BE B99 hin hh ; : 
— 5 HA $0 CALLS #3, STOP_BATCH_JOB t 9945 : 
o000v CF 9€ 00088 4$:  MOVAB BUFFER, PTR : 0046 : 
- ee 68 0S o00eF $8: Tete” PTR) 
1d 8 Geos Crp SKPTRD, #3 : 0948 ; 
ct BHta he Bn Lome) | 
a ne 2 : 
ge 9F PUSHAB 4(PTR) ; ‘ 
* * Fo te CALLS #3, STOP_BATCH_JOB : 9950 : 
ie 50 3 6s Hd aa PTR : 0946 : 
39 04 A042 9F 094 BR S$ ; ; 0954 
04 00080 78 RET 
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DETACHED tose 1984 01:59:01 AX-11 Bliss-32 V4.0-742 p 18 
vbe-000 Ve-sep-1984 42:41:05 — ELOGIN. SRETDEFACMED “BSo—1 age (5) 
; Fe 4 5 ] ROUTINE stop_batch_job (flags, buffer, signal_args): NOVALUE = 
oo Bd 
; 88 9 5 ii This routine is called to terminate a job stream as a result 
; re) se : of an operator request or failure of an individual job step. 
; 66 962 1 | Inputs: 
: ee 36 i fl Add t flags L d from job Lt 
3 ! ags = ress o ags longword from job controller 
: 44 se : djts Address of entire buffer from job controller 
3 er 967 1 { Outputs: 
; 378 3434 } ®. There is no return - the image is exited. 
ae $972 BEGIN 
Bee 8 
; 579 0975 flags : REF S$BBLOCK ! Address of options longword 
; 280 b3e signal. ergs : REF SBBLOCK; ! Address of signal orgunents or 0 
: §8 0978 2 BIND 
; 588 4444 igi = .ppd Cppd$l_lgiJ: BBLOCK; ! Address the LGI area 
BBE, 
; 387 O38 Write the logout message. 
; 589 0985 2 logout_message(); ! Write logout mess 
; 590 0986 9 ) gout message 
Bo BRE 
:; 59 989 2 IF .flags(dji$v_log delete] ' If delete of output file requested 
; he: oa a NOT f Cagetaj iy toe. spool] ! and no print, os se stiges 
; 238 4454 output_fab Cfab$v_dit] = true; ! then set to delete on close 
3 $38 ¢ SCMEXEC(ROUTIN = close_output); ! Close log file so we can print it 
; 600 996 SCMKRNL(ROUTIN = set_uic, ARGLST = .Lgi Clgi$l_origuic]); ! Reset UIC 
; 686 99 if sf legsldj i$v_log_spoolJ ! If output file is to be printed 
; 604 BEGIN 
; 605 1001 LOCAL 
3 one 1 § wrdptr_: REF VECTORC,WORD), 
: 60 1 ptr : REF VECTOR ! Pointer to item List 
; 608 1 Queue_name : vec fort) ! Place for queue name 
3; 609 1005 iNet iA (0,0), 
; 610 1 job_name : VECTOR } ! Place for job name 
: 611 1 inet iA 0), 
; olg 1 itmist : VECTOR(30) ' Item List for SNDJBC 
i 613 ; input_buffer : VECTORC128); i Batch input item 
; 615 1011 3! 
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vb4-008° 1eH-138 QU:E9:8}HEMGIL SAUSSETRh 


4 P 9 
34 age of} 


3 6 101 ' Wen to find the queue name, as well as the job name, before starting : 
; 2 } : to fit out the itemlist. » 
; 61 1015 wrdptr ; styl ters : Point at the buffer : 
; © 1 1 WHILE true 00 ' Go thru buffer 3 
; 621 1017 4 BEG IN” 3 
3 6 ¢ 1 18 4 IF Mat | erfid Eat 0 3 
3; 6 101 4 THEN L908? : 
> 624 1020 4 IF a 1) QL dji$k_log_queue 3 
: 625 1021 4 war 3 
a § i : eue_na rdptr(0); 
3 ueue_name Ww 3 
3 3 8 1024 = chanetty, = = urdpertesi: 3 
; 629 1025 ob 3 
; 630 19 $ Hei EXITLOOP; : 
: 6 1028 4 EL SE iF -wedptr£1) EQL dji$k_job_name : 
3; 6 7 1029 4 —. 3 
3 6 1030 3 3 
3 $3? 1031 ~ -nane[O} = ewrdptr(0); 3 
© 1936 ob. name a a 3; 3 
; 637 10 ~ queue name a0 3 
3 oss 1034 THEN EXITCOOP; 3 
; 639 1035 4 END; 3 
; 640 10 4 uréptr = wrdptr(2) + .wrdptr(0); 3 
3 $6) Wee END; : 
3 ea8 1038 : If no queve name was found, then use SYSSPRINT. : 
3 645 1041 IF .queve_name(0) EQL 0 3 
; 646 Mok —_, 3 
3 647 1045 4 3 
; 648 1044 4 ecu “ramet = ZCHARCOUNT('SYSSPRINT' 3 3 
; 649 1045 4 gueue_ name = UPLIT BYTE('SYSSPRINT') $ 
; 650 Ines s 
3 651 104 ! 3 
3 $36 1048 ! Now to fill in the itemlist. 3 
; 65 1049 ! 3 
3 63% 1930 | eee itmlst; ! Start at beginning of item List : 
: 656 1026 ' The queue name is either in the JBC buffer, or else we should use PF 
: 637 1093 3 | SYSSPRINT. : 
; $36 1055 ptr 1 = sjc$_queue*16 OR .queve_name(0]; 3 
3; 660 1928 ee "wae name(1); 3 
; ree 198 t ptr OS : 
° : A : 2 
3 $8 1 25 ! $ 
; 666 ! ; Also put in the job name. : 
3; 666 1 § ptr 9 = sjc$_job_ pane’ t6 OR .job_name(0); : 
; 667 1 ptr(i = ~name(1); : 
3; 668 1 ptrl2 : 
; 66° : 5 ptr = ptrls : 
; 671 1 i add /NOTIFY if <5 er : 
: 672 1 ! 3 
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a ags(dji$v_notify] 
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| If the log file exists, add its information. 
UF Gren CHAR (ppdtppdst_outdvid) NEQ 0 
BEGIN 
i File ID 


= = sjcs_f te. identi ication*16 OR ppd$c_dvifid; 
perth pat pd $t_outdvil; 


oer : ptr $); 

Add /DELETE if requested. 

; IF .flags€dji$v_log_delete] 
THEN 
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[fe ] 
WO ODONOuns 


SESSe 


ao 
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690 


BEGIN 
perio} = = sjc$ Page lege. file*16; 


ace = perk ane. 


| The log file always gets a header page. 


Ere = = prea £8 age," header*16; 


If no file exists, attempt to print messages. 
ELSE IF .signal_args NEQA 0 
THEN 


Sssese 


WP tt ot rt tt a a at ot a tr al ot ot ot ot ee ee Sot ee ee ee 
0 
° 
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: REF SBBLOCK, ! Pointer to item header 
: REF SB8LOCK; ! Pointer to input buffer 


= ; = input_buffer 
ptai di isu. iten_ € ee : “giisk condition_vector; 
p dji $w_it 
= .ptd Ss. it n-headers, 
-p = -Signal. args(4 


Ty" sfonal args(0,0,8,0] GEQU 3 
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TES} \su.iten.size = 8; 


<9 


M12 
vO4-000° 1er$ep-198e 12:41:03 ELOGIN.SRCSDETACNED.Bs871 Page og) 


° . 2 Ve ra ° ! o 1 P) 
i ° 1 § 3 Oe Ys" peat 0,32,0] STS, if present 
. ¥ 5 11 $ 4 IF .Signal_argsl0,0,8,0) GEQU 4 : 
ai. Nh 8 megs : 
eae 11 ildjiSwiitem_size) = 12; : 
3 7 11 j ; -p = sergnelreraet16,0-42,03; ! STV, if present : 
2. ee bs, ; 
; 740 1136 4 ; 
3 oe) 1 ? ? if goutout_nentnense_rol NEQ 0 : 
: 7% 1139 BEGIN 

3 rte 1140 : pha gu_{ten.code = GATOR F the gpee | Feet ions 

; 745 1141 : pldjiSw_item size] = .output_nam(nam$b_rsl); 

is 1148 BS thsnovecnes vemanencer: 

: 748 1144 : .output_nam(nam$b_rsl], 

3 oe 133? 2 output nam nam$l"rsal, 

: 751 438 en “> 

: Pee 1123 ? ise IF .output_namC(nam$b_esl] NEQ 0 

; 1 BEGIN 

3 rae 1184 : ofa Su_ tren code = Op tee Fike spec} Ticer tens 

3; 1126 2 pldjiSw_item_size] = .output_nam(nam$b_esl); 

oe bE ean =e oder 

: 759 1155 : . .output_nam[nam$b_esl], 

: 760 1128 5 -output_nam(nam$l_esal, 

: 761 1157 5 Pp); 

: oes 1139 2 ELsen™ 

; 1 B 

3 ree 118 3 phd Su_ iten code = dji$k_file poec ification; 

: 766 1366 pldji$w_item_size] = .output_fablfab$b_fnsJ; 

: 767 116 p= .p Gj 1Ss_item_header; 

: 768 1164 p = CHSMOVE ( 

: 769 1165 -output_fab(fab$b_fns], 

: 770 1166 -output_fablfab$l_fnal, 

eae 1188 »;"* 

; rh 117 ‘ p= ve ‘ ! Zero terminate List 

: : p=. > 

3 172 4 

; 4 1198 4 ptrl[0) = sjc$_batch_input*16 OR (.p = input_buffer); 

3 re 1174 4 ptr[iJ = input_buf fer; 

PF 1175 4 ptr(2) = oj 

i We $B; 

: 7 : 1178 , 

: 7 117 ! Done. Put in a zero longowrd 

Fi 11 ? : 

3; «6785 11 ptr(0) = 0; 

. 1182 
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16-Sep-1984 01:59: AX-11 Bliss-32 V4.0-742 
13-88-1382 94:29:81 LOGIN. SRCIDETACHED .B3251 
3 f 7 P 1183 SSNDJBCWC(FUNC = sisS enter tile, 
: 1184 ITMLST = itmlst); 
; 1} 5 END; 
: a 1 § SCMEXEC(ROUTIN = exit_process); ! Terminate process 
; 79 11 8 END; 
-PSECT S$PLIT$,NOWRT,NOEXE,2 
54 4E 49 52 50 26 53 59 53 00024 P.AAF: .ASCII \SYSSPRINT\ 
eEXTRN SYSSCMEXEC, SYSSCMKRNL 
«PSECT S$CODE$,NOWRT,2 
O7FC 00000 STOP_BATCH_JOB: 
A 000000006 00 9€ 0000 MOVAB SYSSCMEXEC, R10 
9 990000006 9E 000 MOVAB PPD+72, RO 
38 000000006 9E 0001 OVAB OUTPUT_FAB+4, RB 
5 000000006 9€ 0001 OVAB OUTPUT"NAM+3, 
5 FD7 cE 9 901 MOVAB -648(SP) 
5 CC Ad DO 00 OVL PD+20, R2 
gy 0000006 88 BP EE S38er GALS fs pba gene 
05 04 BC 3 £0 00 5 BS #3. @FLAGS, 1$ 
01 AS 80 BF 00 BISB2 #128, OUTPUT_FAB+S 
4 00030 1$: CLRL = = (SPS 
000000006 00 9F 0003F PUSHAB CLOSE OUTPUT 
SA 02 FB 00045 CALLS #2, SYSS$CMEXEC 
62 DD 00048 PUSHL  (R2) 
000000006 6 F D4, PUSHAB SET_UIC 
000000006 00 ¢ FB 090 CALLS #2, SYSSCMKRNL 
3 04 BC ose 9 0097 BBS f @FLAGS, 2$ 
AD 7C 008 2$ CLRQ  QUEUE_NAME 
AD 0 62 CLRQ J 
A 006 MOVL UFFER, WRDPTR 
A ¢ 9 69 3$ MOVZ2WL 2(WRDPTR), R1 
6D BEQL 4 
1 Bi $f CMPW SRT, #5 
2 : BNEQ 4$ 
60 3¢ 0007 MOVZWL (WRDPTR), QUEUE_NAME 
A : 78 MOVAB  4(RO), QUEUE_NAME+4 
AD p TSTL J _NAME+4 
7°=«11 BRB 
31 1 4$: CMPw ORR 
2 BNEQ 6 
60 3¢ MOVZWL ¢ 
A MOVAB. 4 
AD TSTL «6 
OA 9 $ BNEQ 7 
69 C 00095 6$ MOVZWL  ( 
40 9€ 0009 MOVAB. 4 
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; Routine Size: 447 bytes, 


Routine Base: 


a 
P) 
8 Be 
5 
8F § 
6E YE 
A6 04 
oc CO 
sf 
7E D4 
CD OF 
13 7D 
7E D4 
07 FB 
7E D4 
00 OF 
02 FB 
04 


SCODES + 032A 
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20$: 


1986 92:27 


8) AX=11 Ot igsese Vv 
: LOGIN.SRCJDETACH 


RO, (P)+ 
#2. P 

oufPur FAB+44, R1 
RO (RD, (P) 
INPUT_BUFFER, RO 


R 

#655360, R3, (PTR) 

INPUT BUFFER, 4(PTR) 
(PTRY 


#7 y Torey 


EXIT PROCESS 
#2, SYSSCMEXEC 
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GLOBAL ROUTINE init network: NOVALUE = 


' ooo 
i 

Perform initializations of a network job. The pr ieacy logical 
names have been setup by the calling process (NETACP). 


Inputs: 


i 

i 

i 

i 

i 

! sys$input = Name of command procedure to be invoked 

: sys$output = 3 concatenated ASCIC access control strings 
’ username, Pessugre. account) 
sys$error = Network control block (NCB) for connect 
Outputs: 

i 

i 


uaf_record = Address of UAF record, if any 


BEGIN 

LOCAL 
len, 
ptr, 
username: VECTOR $4 !' Username descriptor 
password: VECTOR C2], ! Password descriptor 
account: VECTOR (2); ' Account descriptor 


job_type = jib$c_network; ! Say this is a network job 


1 
Get logical Link number from NCB and store remote node info in P1 space 


ven CHSFAIL(ptr = CHSFIND_CH(.sys$error (OJ, .sys$error [1], '/')) 
set_node_name(.(.ptr + 1)<0,16>); ! Set remote node info in P1 space 


Check to see if this network job should use the proxy login. This is 

determined by checking the low bit of the first word of the string 

described by the sys$output descriptor. If the bit is set, then attempt 

@ proxy log n. If that fails, then use the access control string described 
te) 


by the sysSoutput descriptor. 

ptr = ..sys$output(1); ! Get first two words of SYSSOUTPUT string 
sysfourputt?) = -Sys$outputt?) - $i ! Drop flag word off SYSSOUTPUT string 
sys$output(1) = .sys$output(1] + 2; 
IF NOT 

ect <0,1> THEN get ) ! If low bit set then t Logi 

-ptr et_proxy ' Ow se en try proxy login 
ELSE FALSE . i Otherwise set FALSE . 


PRI NIAAI AIR IPIPPIPNIPYIPINIPIPYININPINOPOPINIPIPINPIPIPIPIPOPININININPINPYINININID 9 2 9 SS SS SS 


THEN ! If no proxy, or proxy failed 


on 


PARAEQXQEMMAIMNVIVIVIVIIT ES & 


WO CONOULS WN OOO 


10969 09 09 09 09 09 C9 09 SII NI NSIS NINN NIOOOAAS O 
DWONAOUE WN (OOO NOUSWN "OO OOnNOus 


SBSzS 


SSS sSSSSeESeSsSeeS 
> 


ooono 


LSSeVES 


ee a ee a a ee ee a ee ee ee a ad od od 
CAAEAIPIPIPIPIPIPUPDPIPIPUDPIPYPINIPINDINYININIPIPINIAIPIPYIPINIPNPINPIPIPYNIPUPUPINIPINPIPINPIPUPOPOPUPUNPONyPynonornyd 


Be Be Se Se Be Be Be Se Se Se Se Se Se Se Se Se Ge Be Fe Sse Se Se Ss Be Ge Se Ge SF Se Ge Ge Oe FFs Se FH Se OH Os Oe Ge Ss FF Se Se Se FH Os Se Se FHS Os SH Os Se ee 


oo 
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13 
16-5e =1984 01:59:01 AX-11 Bliss-32 V4 
1 =300 71 38% 94:29:81 LOGIN. SRCIDETACHE 
BEGIN ! Use the access control string 
ptr = .sys$output (1); ! Get address of SYSSOUTPUT string 
username fo} = CHSRCHAR_A(ptr); ' Get Length of username 
username [1] = .ptr ' and address of username 
tr = .ptr_+ .username (0); ! Skip to password 
Sasouert £0} . CHSRCHAR_A(ptr); ! r 4 


password 


account 


ptr = 7“ + 
account 


1 eptr; 


eptr; 


«password (0); ! 
9} : CHSRCHAR_A(ptr); : 


Get gi of password 

! and address of password 
Skip to account 

Get length of account 

! and address of account 


NOT .pcb_sts ‘narod Heel ensign ag beet 


IF 
THEN validate_uafrec (username, 


END; 


1 
Create SYSSNET logical name with contents of NCB 


create_logical(ZA 
sy 


SCID ‘SYS$NET', 
s$error, 


ookup in UAF file 
assword, ! and validate the password 
PLIT (0,0)); ! with a null secondary password 


!' Define SYSSNET 


psl$c_exec); 


i If the input file has 


the file type .EXE, then rather than activating 


! the CLI and creating a log file, activate the program from a small 


' code segm 
} activation time. 


ent in Pl space. 


This is done to optimize network job 


IF NOT CHBFALL (CHOF IND_SUB(, Sys8 ineut CO}, s0xehinout C1), 
4, UPLI E(" .EXE'))) 


THEN 


input_fab 
input_ fab 


BEGIN 
input-fab {fab = map_imgact); 


fab$l_fna 


n 
output_fab pfabst. tna 
output. tae fab$b_fnsJ] = 
RETURN; 


BYTE(’.E 


) : Map the imgact code segment into P1 
= UPLIT BYTE(’_NL:") ! Set input to NL: 


“s -input_fab pfabsi_tna 3 ! Set output to NL: 
-input_fab [fab$b_fnsJ; 
! and return 


Set default filespec for input file 


input_fab 


pfebst_gne 
input_fab 


fab$b_dns 


! 
Construct filespec of 


yest BYTE ("CONNECT.COM'); 


output log file for network job 


<<" 


Be Se Be Oe Be Se Oe Be Se Se SH Se Se BH Se Se Se Se Se Be Be Se Se Se Ge Se Ge Ge Be oe Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se SH SH Se Se Seas 


SSS SSS SSS 


F 13 
DETACHED -Sep- 759: - © -0- 
vO4~600 1e$ep-1986 12:41:03 ELOGIN. SRCSDETACHED 85871 Sees 


$ 


len = .len - 13 
ND 


E 
WHILE .len GTR 0; 
co CHSFAIL(ptr = CHSFIND_CH(.sys$output [0], .sys$output [1], '.')) 


CHSDIFF(.ptr, .sys$output (1)); 


sys$output (0) 
END; : 4 


1 G tr = (sys$output (1) = .sys$in {1)); 
1} 8 TF clan z (sysSoutput (03 : vayetineut (01)) NEQ 0 
ig 0 BEGIN | 
14 0 dO 
15 BEGIN 

1 LOCAL 

1 chr: BYTE; 

18 chr = CHSRCHAR_A(ptr); 

19 chr EQL ':* 

0 OR .chr EQL ‘J 

1 OR .chr EQL ‘>’ 

we al Gt ee 

sys$outpu = .ptr; 

$ syssoutput FO] = ‘Ton - 1; 

6 END; 
27 

8 

9 

0 
3) 
33 
34 
35 


output_fab Cfab$b_fns] 
output_fab (Cfab$l_fnal 


-sys$output (0]; ! Set as primary output filespec 
-sys$output (1); 


WN OOONAUE WN (OOOO UNE "OOOO 
=POPNINININI WAS BENIN BEES ES Pononrn 


a a “a ts 4s a a a a tt ls 


WAI WWI WAANAAAAWW 


Se Oe Oe Fe Oe Ose Oe we SF OF Oe Oe Se Be SH Se Se Oe Se Se Se Se Se Se Se Sees esses 
DODODODODDOOOVDOGODODDOODODDDOODOOOODOONOO 


WAAWNIAIRIPININPIPONPINPINPONYDD 2 OO OO Oe 


ss 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


00020 -BLKB 3 
00000000 0099000 0030 P.AAG: .LONG 0, 0 : 
00 54 45 4E 24 53 0038 P.A “ASCII \SYSSNET\<0> : 
91060007, 00040 P.AAH: LONG 17694707 : 
00000000" 00044 “ADDRESS P.AAI : 
45 58 45 2€ 48 P.AAJ: <iASCII \.EXE\ : 
3a 4c «CGE OSE 4c P.AAK: ASCII \_NL:\ : 
4D GF 463 26 54 43 45 4E 4E 4F 43 00050 P.AAL: ‘ASCII \CTONNECT.COM\ : 


-PSECT SCODES,NOWRT,2 


O7FC 00000 ENTRY INIT NETWORK, Save R2,R3,R4,R5,R6,R7,RB.RI,~; 1190 
A ' CF Of 99 3 MOVAB AAG, R : 
9 G MOV SYSSERROR, R9 : 
8 G E MOVAB OUTPUT FAB+44, RB ; 
G E MOVAB SYS$I R7 ; 
$ 6 3 if MOVAB INPUT FAB+44, R : 
G : MOV SYSSOOTPUT+4, R : 
E C A SUBL2 #24, SP : 


Be Be Se Oe Be Be Be BH Se Be Be SH Ge Se SHS e He Se BH Se He Se Se Se Se Se Se Se FH Se Oe OH Se Se Se HSH Se Oe Se BH Se Se Se FF Se Se Se SSH ee ee SH Se Se ae 


13 
DETACHED 18-5¢ -1984 259: AX-11 Bliss-32 V4.0-742 Pa 8 
Mee 605 1 ~30 7} 38% 9 29:08 LOGIN. SRCIDETACHED.B32:1 - (3 
000000006 01 0D D MOVL #1, JOB_TYPE : 121 
59 0s Ad 8 MOVL SVSSERRORS4 RO : : 38 
60 6 F 3A 8 LOCC #47, SYSSERROR, (RO) : 
¢ ¢ C BNEQ 1$ : 
D CLRL RY : 
54 1 09 46 1$ MOVL R1, PTR : 
? or Ab $2 b00e seb, {<PTR). (SP) + 1226 
000000006 05 01 F 49 CALLS #1, SEf_NODE_NAME : 
0 65 D0 00 30 2$ MOVL  SYSSOUTPUT+4; RO + 1236 
54 D0 000 MOVL (RO), PTR : 
FC A} ¢ 0 6 SUBL2 #2, SYS$OUTPUT : 1238 
63 : €6 0 3A ADDL é SYSSOUTPUT+4 : 39 
0000v i i Fe see CALLS #0, GET_PROXY : 
4 DO 00068 3$: HOV SYSSOUTPUT+4, PTR : 1248 
10 AE 4 9a 00068 MOVZBL (PTR)+, USERNAME + 1250 
VL U + : 
14 AE 4 DO 0006F MO PTR, USERNAME +4 1251 
54 10 AE 60 000 ; ADDL2 USERNAME, P + 1253 
08 AE 84 A 0007 MOVZBL (PTR)+, PASSWORD + 1254 
OC AE 4 09 0078 OVL PTR, PASSWORD+4 : 1255 
54 08 AE ¢ 007F DDL2 PASSWORD, P : 1257 
6E 4 9A 00083 MOVZBL (PTR)+, ACCOUNT + 1258 
04 AE 4 DO 00086 OVL PTR, ACCOUNT+ + 1259 
OF 000000006 00 4 EO 0O0BA BBS #4, PCB_STS+2, 4$ : 61 
OC AE 9F 00094 PUSHAB PASSWORD + 1262 
18 AE 9F 00097 PUSHAB USERNAME ; 
000000006 00 03 FB O009A CALLS #3, VALIDATE_UAFREC : 
1 DD OOOA1 4s PUSHL #1 : 1271 
9 DD Q0A3 PUSHL 9 : 
10 AA 9F OOOAS PUSHAB P.AAH : 
000000006 00 03 FB O00A8 CALLS #3, CREATE_LOGICAL > 
50 67 p OOAF MOVL  SYSSINPUT+Z, R : 1282 
A AA B MATCHC #4, P.AAJ, SYSSINPUT, (RO) : 1 
60 FC OAT 18 04 00 $ 0 28 
3 13 0008 BEQL ~=sS$ : 
53 4 0 BB MOVL #4, Rs : 
53 . £ BF 5$: SUBL2 #4. R ; 
0 1 C BEQL ; 
p 00C CLRL = = (SP) + 1286 
000000006 0 F 0 ¢ PUSHAB MAP_IMGACT : 
000000006 00 FB 000C CALLS #2, SYSSCMEXEC : 
&6 1¢ AA 3 p MOVAB P.AAK, INPUT FAB+44 : 1 87 
08 Ab 04 MOVB #4, INPUT FAB+ : 1 
68 bb 0 DA MOVL §INPUT_FAB?44, OUTPUT_FAB+44 + 1289 
A A MOV NPUT"FAB+52, OUTPUT—FAB+ : 
08 AB 08 A6 p ROVE INPUT 52. OUTPUT 52 30 
6 Ab 20 AA $e £3 6$ MOVAB P.AAL, INPUT FABS48 :1 8 
9 A 0 E MOVB #11, INPUT_FAB+53 : 1299 
5 D EC MOVL SYSSINPUT+E RO : 1305 
D EF MOVL » SYSSOUTPUT +4 ; 
4 D F MOVL ; 
9 cc.6hU da? 6 F MOVL  SYSSINPUT, RO > 1306 
FC OA 0 p F MOVL RO, SYSSOUTPUT : 
4 FD BEQL : 
51 4 9 FF 7$ MOVE  (PTR)+, CHR > 1313 
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CMPB CHR, #58 ; 1314 

HR, #93 

HR, #62 


SYSSOUTPUT+4 
Ros SYSSOUTPUT 


LEN ; 
Soute T+4, R2 
SYSSOUTPUT, (R2) 
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5 th ee 
ans 


5D BF 


FC is FF 


62 FC UA 


eb a 
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PTR 


PTR, SYSS$OUTPUT 
SOUTPUT, OUTPUT _FAB+52 
SOUTPUT+4, OUTPOT_FAB+44 


FC AS 54 
08 A8 FC 
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sys 
SYS 
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; Routine Size: 316 bytes, Routine Base: S$CODES + O4E9 
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; 940 1334 1 ROUTINE get_proxy = 
: 3 CBF emai gts 
; 94 1 5 1! Get the local username that is mapped to the remote username. 
> 944 1 1: The remote username is contained in the NCB string described 
; oF : Z : H by NCB_DESC, the NCB descriptor. 
; 309 1341 1 ! Inputs: 
; 948 1 4 1! 
; 949 1345 1! sys$Serror = address of NCB descriptor 
BR TEED ouepu 
3 ! Outputs: 
: 95 134g 1 r 
; 95 1347 1! uaf_record = Address of UAF record, if any 
> 954 1348 1! 
; 955 1349 1! Status returns: 
5 ge9 1350 1! 
; 95 1351 1! TRUE => Proxy username found 
; 958 1 26 1! FALSE => No proxy username found 
> 959 1355 1! 
; 960 1354 1 !<=- 
; 961 1355 1 
; 4 1 28 BEGIN 
:; 96 135 
; 964 1358 LOCAL 
; 965 1359 status, 
; 966 1360 netfab : Be. Ockh fepec BIA ° ! Fab for NETUAF.DAT 
; 967 1361 netrab : BBLOCKCrab$c_bin ! Rab for NETUAF.DAT 
; 968 1306 net_record : BBLOCKEnaf$c_lengthi, ! Place to put a record 
: 298 1397 user _desc : VECTORC2), } ysernane cescriptor 
; r, ! Temp pointer 
; 971 1302 node..en, : Length of node 
; (97, 1366 node_ptr, ' Pointer to beginning of node 
3; 97 1367 user_len, ' Length of username 
; ore 1368 user_ptr; ! Pointer to beginning of username 
; 976 1370 ! 
; 977 1371 ! Initialize the FAB and RAB 
; 978 1 ie } 
; 979 P 137 SFAB_INIT ( FAB = netfab, 
; 980 P 1374 FAC = ! Want to get records 
; 981 P 1375 FNM = "NETUAF® i Name is NETUA 
; 98¢ P 1 id: DNM = 'SYSSSYSTEM: DAT’ i Look in SYSSSYSTEM 
3 = (get,put,upd,del)); ! Do shared access 
3 137 SHR = (cet,put,upd.del) 5 i Do shared 
; 985 1 iS ! Disable group and process logical name translation. This must be 
3 336 : rs} : dorie manually, since SFAB_INIT doesn't know about the disable mask. 
: One ! § net fabl fabSv_lnm_mode) = psl$c_exec; 
: 990 P 1 SRAB_INIT ( RAB = netrab, 
; 991 P 1385 ROP = rrl, ! Don't lock records 
3 44 . ' RAC = key, pecess 8 keyed 
3 = 0, ' Use primary key 
3 441 4 ! cor = net record(naf$t_remnane], Loghyp key qver Lays net record 
: = naf$s_remname, : 
; 9% P 1 UBF = net_record, ! Fetch record and put it here 


<" 
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BEGIN 
clear_sysprv (); 
IF_.status EQL rms$_fnf 


Og TAGHED WEoSeoctgRe O1:50:81  YaKed eLiggr$2.¥4.05742. rage 
338 P ; USE nateceienath. ! Size of record 
3) ; 7 Open NETUAF 
: BS Wabi tetlts  soren ran = oactoon 
aoe 


THEN RETURN fal 


clear syeecv 0; 
SCLOSE (FAB = netfab); 
sien. StGP (lgi$_netuafacc, 0, .status, .netrabCrab$l_stv]); 


se; 
319 1 tee hia (Lgi$_netuafacc, 0, .status, .netfabCfab$l_stvJ); 
1 a 
ig IF NOT (status = SCONNECT (RAB = netrab)) 
14 THEN 
15 BEGIN 
16 IF .status EQL rms$_crmp 
17 THEN 
18 BEGIN 
19 net fablfab$w J = 0; 
9 status = $CORNECT (RAB = netrab); 
¢ IF NOT .status 
THEN 
4 BEGIN 
5 
$$ 
7 


E 
END; 
clear_sysprv (); 


“SSo 


Le 
Wwrm 


Get the remote node and remote username from the Network Control Block. 
The NCB is an ASCII string that looks Like this: 


NODE : :*‘OBJECT=USERNAME/<more stuf f>"’ 


Where NODE and USERNAME are the two fields to extract and use as a key, 
to locate the record in NETUAF.DAT which contains the local username to 


UNS DONO UVUES UN “OO OONOAUE WN 0 OONAUE WN O OONOUFS Wr 


WAAR RIPINININININININY — 2 BQO OOOO OOOO 


ee we ne em wow fefofolololololololololololola) 


1! 
i If the node wasn't there, then return FALSE and process with no proxy 
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a ee ee ee ee ee ee a ee ca ee ee ee ee ee a a ed dd 
at at at at at tt te te aka Ea WUE ah a eh ek et eh 


be 5 map to. 
9 ! First, get the node. 
ae 
be ri} ptr = CHSFIND_SUB ( .sys$error 9}. ! Search the NCB string 
4 sys$error(t F 
3 44 3, UPLIT ('::")); ! Looking for :: 
5 re 
5 4 


an 


SESSFEREE SITY 


SF 


WONAOULSWN—OO 
PEARLMAN ASIII 


COOOoooooooooo 
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Wn 
SSNS NNO OO 
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IF .ptr EQL 0 OR 
“pre EQL .sys$error(1) 
THEN RETURN false; 


node_len = .ptr = ssyaSerror(t); ! Store node length 
node_ptr = .sys$error(1); ! And starting address 


i Get the username. This is done by looking for the "=", then the 
! "7", and interpreting whatever is between the two characters as the 
username. 


Search the NCB string 
Looking for equal sign 


ptr = CHSFIND_CH ( gee eked 
pbypeerrer i 


IF .ptr EQL 0 
THEN RETURN false; 


user_ptr = .ptr + 1; 


ptr = CHSFIND_CH ( sepenerewhtt 
g9upoerrer We 


If no such character found 
return a value of FALSE 


Compute beginning of username 
Search the NCB string 
Looking for slash 


' 
If no slash, or a null username, return FALSE 


IF .ptr EQL 0 OR 
“pee EQL .user_ptr 
THEN RETURN false; 


' 
: Otherwise, compute the username Length 


user_len = .ptr - .user_ptr; 


i Copy the node and username to NET_KEY, the key buffer that RMS will 
use to look for the specified record. 


CHSCOPY ( ,node_len, .node_ptr, 
naf$s_node, net_record(naf$t_node)); 


' Copy the nodename 
' Padded with blanks 
! To the key buffer 


CHSCOPY ( ;user_len, .user_ptr, ! Copy the username 
. ! Padded with blanks 
naf$s_remuser, net_record(naf$t_remuser]); 


' 
! Now perform a $GET, so see if there is a record in NETUAF that 
! exactly matches the node and username specified. If no exact match 


<™" 
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is found, wildcarding is applied in the following order: 
i Wildcard node, specific user 
: Specific node, wildcard user 
} Wildcard node, wildcard user 
If a match is found, then it is used and no further checking is done. 
i 
T 


F NOT ($GET (RAB = netrab)) 
HEN 


BEGIN 
CHSCOPY ( 1, UPLIT (*#"), ! Put in wildcard node 
naf$s_node, net record(naf$t_node]); 
IF NOT ($GET (RAB = netrab)) 
THEN 
BEGIN 
CHSCOPY ( ;node_len, -node_ptr, ! Specific node, 


naf$s node, net_record(naf$t_node]); 
CHSCOPY ( 1, UPCIT ae"), ! Wildcard user 


naf$s_remuser, net_record(naf$t_remuser)); 
wer ($GET (RAB = netrab)) 


BEGIN 
CHSCOPY ( 


4 
: Close NETUAF 


1, UPLIT ('#"), ! wildcard node and user 
naf$s_node, net_record(naf$t_node]); 
) IF NOT ($GET (RAB = netrab)) 
5 THEN 
; BEGIN 
SCLOSE(FAB = netfab); 
; = false; ! If no matches, return false 
4 END; 
4 END; 
4 END; 
4 
4 
4 
4 
4 


CLOSE (FAB = netfab); 


$ 
1 
: If we get here, then a match was found. Check to see if the local username 
! is actually a “‘*’’, in which case copy the remote username to the local 
username. 

IF .VECTOR Cnet_record(naf$t_localuser], 0; ,BYTE] EQL ‘*' 

THEN CHSCOPY (,user_len, .user_ptr, 


naf$s_localuser, net_record(naf$t_localuser)); 


n the user descriptor with the local username, and call 
- to get the UAF record without checking for password. 


ee ee ee ee ee ee ed ce ed ae ee ae ee ce ee ee ed ce ee ed ce ee cel ee ce ee ce ee ee ce ee ce ee ce ee ce ee cl ee ee ee ee ee ae ee ae ee ee ee 
eS eee ee ees 
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C 


user ite = naf$s_localuser 
user_descL1] = net_récord nafst. localuser]; 


get_uafrec (user_desc); 
4 
: Done. If a UAF record was found, return TRUE. Otherwise return FALSE. 


Be Oe Oe ee Oe Oe Oe Sees Oe Se Seas 
— 4 — _s — 4 2 sd 3 4 3 
ts — — _ 
SAN NN SSO 
BRIO E INI ODeo 
ta td 8 ts tb tt 
FUN S"OOONOULS UT 


PUPPIES 


SNS IOA AAA AAO 


RETURN (.uaf_record NEQ 0); 
END; 


S 


-PSECT S$PLITS,NOWRT,NOEXE ,2 


46 41 55 54 45 4 005B P.AAM: .ASCII \NETU 5 

54 41 44 2E 3A 4D 45 54 53 59 53 246 53 HH 33 0096) P.AAN: .ASCII Vee SSeVSTEM: -DAT\ : 
00 00 3A 3A 00070 P.AAO: .ASCII \::\<0><0> 3 

00 8 00 2A BROT 8 P.AAP: .ASCII \#\<0><0><0> : 

00 00 00 2A 00078 P.AAQ: .ASCII \#\<0><0><0> : 

00 00 00 2A OQO007C P.AAR: .ASCII \#\<0><0><0> 3 


.EXTRN SYSSOPEN, SYSSCONNECT 
“EXTRN SYSS$CLOSE, SYSSGET 


-PSECT SCODES,NOWRT,2 


Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 5 1334 
5B 000000006 99 9E 00002 MOVAB CLEAR _SYSPRV, R11 ; 
SA 000000006 0 9E 00009 MOVAB SYSSGET R10 : 
SE FFOO CE 9E 00010 MOV 33 6(SPS, SP : 
0050 8F 00 6E 00 2c o001¢ movcS #0, (SP). #0, #80, S$RMS_PTR : 1377 
BO AD s0b3 F BO OOte MOVwW oe 483, SRMS_PTR : 
C6 AD FO F 80 00 MOVW Shs ge iRt22 : 
CF AD 2 90 99 A MOVB “Sams ; 
DC AD 0000" CF 9E 0002E MOVAB P.AAM, sans. Pines : 
EO AD 9000' F 9E 000 MOVAB P.AAN, $RMS~PTR+4 : 
FA AD - $0 - ‘ e iF INSY 43846, sins malbet3 +74 : 138 
0044 8F 8 6E - 00 2c 46 MOVCS #0, (SP), #0, #68, SRMS_PTR : 1393 
6C AE 4401 8F B GF MOVW #17409, S$RMS_PTR : 
70 «AE 8 3 MOVL #8, $RMS_PTRT4 ; 
A AD 1 #1. $RMS~PTR+30 : 
C AD 4 8F 98 MOVZBW #100, SRAS_PTR+ ; 
0 AD AE 9E NET RECORD; SRMS S_PIR+ 36 : 
9 AD AE MOVAB NE TRE CORD arenes: PTR+4 : 
40 «BF ¢ MOVB #64 Rs 61 : 
AD BO AD 9E MOVAB NET TEAB, SRMS_PTR+60 F 
000000006 0 00 FB 00076 CALLS # sef _SYSPRV ; 1397 
BO AD 9F O70 PUSHAB NF TFAB : 1398 
000000006 00 01 FB 00080 CALLS #1, SYSSOPEN : 
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Mba etiam ts rane) a PSE BRP EPS fore 
D 7 MOVL RO, STAT 
a a ie 
00018292 BF Bf 3 cMPL STATUS, W989e0 
0148 $4 00099 gnee bs 
BC AD DD 0009C 18: PUSHL NETFAB+12 
3 DD 0009F PUSHL STATUS 
000000006 &F pp oooAy Bete #LeTS.NETUAFACC 
000000006 00 a O4 FB A - CALLS a PrbSst OP 
000000006 9 ; F B CALLS #1, SYSSCONNECT 
DO 000BA MOVL RO, STATUS 
D E8 0008 BLBS STATUS, 4$ 
0001C14C BF 3 D} 0c cHPL TATUS, #115020 
F8 AD 84 00¢9 CLRW NETFAB+72 
6C AE 9F 000CC PUSHAB NET 
000000006 00 gi FB OOOCF CALLS #1, SYSSCONNECT 
52 0 D0 0006 MOVL RO. STATUS 
21 38 E8 00009 3$ BLBS STATUS, 4$ 
6B 00 FB 000DC CALLS #0, CLEAR_SYSPRV 
BO AD 9F OOODF PUSHAB 
000000006 00 01 FB 000E2 CALLS #1, SYSSCLOSE 
78 AE DD OO0ES PUSHL NETRAB+12 
52 OD OOdEC PUSHL 
7E D4 OOEE CLRL. =(SP 
000000006 00 enw Be 43 Soars CALLS a Becvop nc’ 
68 0 FB OOOFD 4$ CALLS #0, CLEAR_SYSPRV 
33 990000006 0 dO 90199 MOVL § SYSSERROR? R5 
4 000060006 00 p60 0107 MOVL  SYSSERROR+4, R4 
CF MATCHC #2, P.AAO, RS, (R4) 
64 55 0000° 0 39 910 mare We RS 
53 02 D O11 MOVL #2, R3 
53 02 C2 OO11A S$: SUBL2 #2. R3 
ep 13 0011D BEQL 8$ 
54 D1 0011F CMPL PTR, -R4 
8 3 91 2 BEQL 8$ 
57 53 4 C3 00124 SUBL3 R4, PTR, NODE_LEN 
26 4 p0 0128 MOVL 4 €_PTR 
64 5 D 3A 00128 Loce §=—-_s#61,._- RS, ~(R4) 
; if 4 F BNEQ 6$ 
p4 00131 CLRL sR 
53 1 00 133 6$: MOVL R1, PTR 
: 13 001 BEQL 
58 01 Ad 9E 001 MOVAB 1(R3), USER_PTR 
64 5 F 3A 0013¢ LOCC =-_«#47, RS, (R&) 
2 2 0014 BNEQ 7$ 
D4 0014 CLRL sR 
53 1 p 144 7$ MOVL 1, PTR 
67 147 BEQL 
SB ; 149 CMPL = PTR, USER_PTR 
; 14C 8$ BEQL $ 
59 53 5 146 SUBL 3 USER_PTR, PTR, USER_LEN 
20 20 C 0015 MOVC5 NODETLEN, (NODE_PTRY, #32, #32, NET_RECORD 


en 
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; Routine Size: 490 bytes, Routine Base: $CODE$S + 0625 


08 A 157 ; 
20 20 48 af 2c 133 MOVCS USER_LEN (YSER_PTR) #32, #32, - + 1500 
28 AE 1 NET_RECOR : 
6C AE OF 0016 PUSHAB NETRAB + 1513 
6A 1 EB O16 CALLS #1, SYSSGET : 
49 0 5 166 LBS. RO, 108 : 
20 20 0000" CF 08 Re C 818 MOVCS #1, P.AAP, #32, #32, NET_RECORD : 1518 
6C AE OF o172 PUSHAB me + 1519 
6A g re O17 CALLS #1, SYSSGET : 
37 : ; 178 BLBS 10$ ; 
20 20 66 - 37 C o178 MOVCS NOBE LEN, (NODE_PTR), #32, #32, NET_RECORD ; 1524 
20 20 0000" CF - o1 2c O12 MOVCS #1, P.AAQ, #32, #32, NET_RECORD+32 + 1527 
6C AE 9F 00188 PUSHAB NETRAB + 1528 
6A 01 FB 0018E CALLS #1, SYS$GET : 
1E 50 ES 00191 BLBS RO, : 
20 20 0000" CF i 01 C 00194 MOVCS #1, P.AAR, #32, #32, NET_RECORD t 1533 
6C AE 9F 0019D PUSHAB NETRAB : 1534 
6A 01 FB BRA CALLS #1, SYSS$GET : 
0c 50 £8 OO1A LBS. _—s- RO, -:108 ; 
BO AD 9F 001A6 PUSHAB NETFAB : 1537 
000000006 00 01 FB OO1A9 CALLS #1, SYSSCLOSE F 
35 11 00180 9$: BRB 12$ : 1538 
BO AD 9F 00182 10$:  PUSHAB : 1547 
000000006 00 01 FB 001B CALLS #1, SYSS$CLOSE ; 
2A 48 AE 91 001BC *MPB NE ET_RECORD+64, #42 + 1554 
07 12 001C0 BNEQ 11$7 F 
20 20 68 59 2C¢ O01¢¢ MOVCS USER, LEN, fuser _PTR), #32, #32, - + 1557 
48 AE 001¢ NET_R : 
bE 20 DO 001C9 11$: MOVL - > 1564 
04 AE 48 AE 9E O01CC MOVAB NET AigEn bese USER_DESC+4 : 1565 
SE DD 00101 PUSHL : 1567 
000000006 00 01 FB 001D3 CALLS #1, GET_UAFREC ; 
50 D4 OO1DA CLRL : 1573 
000000006 00 D3 001D¢ TSTL _UAF_RECORD : 
05 13 001E2 BEQL 13% : 
50 06 OO1E4 INCL RO : 
04 001E6 RET : 
50 D4 OO1E7 128: CLRL = RO : 1574 
04 00169 13$: RET : 
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118 1575 1 END 
118 1576 0 ELUDOM 
-EXTRN LIBSSTOP 
PSECT SUMMARY 
Name Bytes Attributes 
SOWNS 299 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS 128 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, tones ar tents} 
SCODES 20635 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
eer eiate Symbol eocesece Pages Processing 
File Total Loaded Percent Mapped Time 
.$255$DUA28: CSYSLIBILIB.L32;1 18619 163 0 1000 00:01.4 
COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:DETACHED/OBJ=OBJ$:DETACHED MSRC$:DETACHED/UPDATE=(ENH$: DETACHED) 
Size: 2063 code + 427 data bytes 
Run e 00:31.3 


T : : 
Elapsed Time: “si :05.2 


020 
Lexenes/CPU-Min: 38117 
Used: 286 pages 


cee ee Complete 


MENT CORPORATION 
ND PROPRIETARY 


= 
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eh 


